home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g52.bas < prev    next >
BASIC Source File  |  1991-10-18  |  388b  |  16 lines

  1. 100 ' G52 T.WAKAMATSU 
  2. 110 CLS:PI=3.14159!
  3. 120 C(1)=5:C(2)=4:C(3)=0:C1(1)=3:C1(2)=6:C1(3)=0
  4. 130 PSET(320,479)
  5. 140 FOR L=1 TO 3
  6. 150   C=C(L):K=C1(L)
  7. 160   FOR T=0 TO PI*2 STEP PI/96
  8. 170     X=SIN(65*T)*239+320
  9. 180     Y=COS(65*T)*239+240
  10. 190     LINE -(X,Y),PSET,%K
  11. 200     X=SIN(65*T)*150+320
  12. 210     Y=COS(65*T)*150+240
  13. 220     LINE -(X,Y),PSET,%C
  14. 230   NEXT T
  15. 240 NEXT L
  16.